00005	BGB DEMOS
00052	
00100	RUN 0[1,BGB]	! arm motion display;
00150		n	! any number slows down action;
00200	
00300	R G			! geomed;
00400		ctrl ∞		! make torus;
00500		alt-mode	! hidden line;
00600		H		! help;
00700	
00800	
00900	R CRE
01000		ctrl I	HIP[CRE,BGB]	! input, file name for horse;
01100			DOL[CRE,BGB]
01200		meta ↔		! play film of images;
01300		H		! histograms;
01400		Q		! contours at 20,40,60;
01500	HELP CRE		! at monitor level;
01600	
01700	
01800	AL GEM,BGB
01900	
02000	
02100	RU G
02200		I	HIP0		! horse;
02300		ctrl I	TMP		! camera model for horse;
02400		meta Z	HEAD
02500		meta Z	BASE
02600	
02700	
02800	R G
02900		I	DODECA[B3D,BGB]		! dodecahedron;
03000		I	STAR[B3D,BGB]
03100		ctrl¬		! subtraction of bodies;
03200		ctrl ∪		! union of bodies;
03300		ctrl ∩		! intersection of bodies;
03400		K 		! kill;
03500		C		! copy;
03600